home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 52
/
Amiga Format AFCD52 (Issue 136, May 2000).iso
/
-in_the_mag-
/
reader_requests
/
notes
/
english
/
basskey.file
< prev
next >
Wrap
Text File
|
2000-02-23
|
35KB
|
1,224 lines
/* subprogramm to notes.pprx */
signal on halt
signal on break_c
signal on break_e
signal on break_d
call ppm_SetStyle(N)
call ppm_SetMagMode(180)
call ppm_UpdateScreen()
noteneingabe:
/* smallest note distance */
xgrdform = "(1,2,4,8 or 16)"
xgrd = ppm_GetForm("Pleace choice the smallest note distance...(nothing=BREAK)", 3, xgrdform)
if xgrd == '' then exit_msg("user break !")
select
when xgrd == '1' then xg =0.7
when xgrd == '2' then xg =1.4
when xgrd == '4' then xg =2.8
when xgrd == '8' then xg =5.6
when xgrd == '16' then xg =11.2
otherwise noteneingabe()
end
/* pointheighth of the notes */
notepkt = 26
call ppm_SetJustification(0)
zz = 0 /* line counter */
notex = 2.5
page = ppm_CurrentPage()
pfad:
do
choose=ppm_Inform(2,"Please choice: notefile or break ...", "Break","File")
if choose == 0 then exit_msg("Break !")
eingabe = ppm_GetFileName("Please choice the notescriptfile ...", "Notes:")
res = OPEN(notenfile, eingabe, 'R')
if res == 0 then
do
call ppm_inform(1,"There was an error, or the file doesn't exist !!!","OK")
pfad()
end
call ppm_ShowStatus("OK, I'm working ...")
auslesen(notenfile)
end
/* x-distance of the notes */
auslesen:
do
parse arg file
noten = READCH(file, 4000)
i=1
do forever
nw = word(noten, i)
nn = word(noten, i+1)
al = word(noten, i+2)
if nw == 'P' then nw = 'p' /*pause*/
if nw == 'D' then nw = 'd' /*delete*/
if nw == 'C' then nw = 'c' /*space*/
if nw == 'L' then nw = 'l' /*barline*/
if nn == 'L' then nn = 'l' /*barline*/
if nw == 'J' then nw = 'j' /*jump*/
if nw == 'END' then nw = 'end' /*end*/
if al == 'N' then al = 'n' /*natural sign*/
call auswahl()
i=i+3
end
end
auswahl:
do
select
when nw == 'j' then do
zz = 0 /* line counter */
notex = 2.5
return
end
when nw == 'end' then
do
call ppm_ClearStatus()
exit_msg("Ready!")
end
when nw == 's' then
do
xw = xg/16
nw='x'
yv = 0
end
when nw == 'S' then
do
xw = xg/16
nw='X'
yv = 0.47
end
when nw == 'e' then
do
xw = xg/8
nw='e'
yv = 0
end
when nw == 'E' then
do
xw = xg/8
nw='E'
yv = 0.47
end
when nw == 'q' then
do
xw = xg/4
nw='q'
yv = 0
end
when nw == 'Q' then
do
xw = xg/4
nw='Q'
yv = 0.47
end
when nw == 'h' then
do
xw = xg/2
yv = 0
end
when nw == 'H' then
do
xw = xg/2
yv = 0.47
end
when nw == 'w' then
do
xw = xg
nw='w'
yv = 0
end
when nw == 'W' then
do
xw = xg
nw='W'
yv = 0.47
end
when nw == 'pt' then
do
call ppm_SetSize(25)
box#id = ppm_CreateBox(notex-xw+0.4, yw+zz+0.26-yv, 0.3, 0.9, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'd')
select
when nn == '1' then
do
xw = xg
notex = notex+xw
end
when nn == '2' then
do
xw = xg/2
notex = notex+xw
end
when nn == '4' then
do
xw = xg/4
notex = notex+xw
end
when nn == '8' then
do
xw = xg/8
notex = notex+xw
end
when nn == '16' then
do
xw = xg/16
notex = notex+xw
end
when nn == 'c' then
do
xw = 0.2
notex = notex+xw
end
otherwise
do
call ppm_ClearStatus()
exit_msg("There was an error !")
end
end
if notex >=18.7 then
do
notex = 2.5
zz = zz + 4
end
return
end
when nw == 'PT' then
do
call ppm_SetSize(25)
box#id = ppm_CreateBox(notex-xw+0.4, yw+zz+0.26-yv, 0.3, 0.9, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'd')
select
when nn == '1' then
do
xw = xg
notex = notex+xw
end
when nn == '2' then
do
xw = xg/2
notex = notex+xw
end
when nn == '4' then
do
xw = xg/4
notex = notex+xw
end
when nn == '8' then
do
xw = xg/8
notex = notex+xw
end
when nn == '16' then
do
xw = xg/16
notex = notex+xw
end
when nn == 'c' then
do
xw = 0.2
notex = notex+xw
end
otherwise
do
call ppm_ClearStatus()
exit_msg("There was an error !")
end
end
if notex >=18.7 then
do
notex = 2.5
zz = zz + 4
end
return
end
/* bar line */
when nw == 'l' then
do
call ppm_SetLineWeight(0.25)
call ppm_DrawLine(notex, 4+zz, notex, 4.8+zz)
notex = notex+0.2
return
end
when nw == 'p' | when nw == 'P' then
do
pausenwert:
x = notex
select
when nn == '1' then do
y = 4.29+zz
call ppm_SetLineWeight(4)
call ppm_DrawLine(x, y, x+0.4, y)
call ppm_SetLineWeight(0.25)
xw = xg
notex = notex+xw
end
when nn == '2' then do
y = 4.33+zz
call ppm_SetLineWeight(4)
call ppm_DrawLine(x, y, x+0.4, y)
call ppm_SetLineWeight(0.25)
xw = xg/2
notex = notex+xw
end
when nn == '4' then do
y = 4.07+zz
Pbox = ppm_CreateBox(x, y, 0.59, 0.86, 0)
boxnm = ppm_DocNextBox(Pbox)
call ppm_DeleteContents(boxnm)
call ppm_ImportGraphic(boxnm, 'Genies:note_pause/quarterpause', pause)
xw = xg/4
notex = notex+xw
end
when nn == '8' then do
y = 4.21+zz
Pbox = ppm_CreateBox(x, y, 0.27, 0.42, 0)
boxnm = ppm_DocNextBox(Pbox)
call ppm_DeleteContents(boxnm)
call ppm_ImportGraphic(boxnm, 'Genies:note_pause/eighthpause', pause)
xw = xg/8
notex = notex+xw
end
when nn == '16' then do
y = 4.21+zz
Pbox = ppm_CreateBox(x, y, 0.27, 0.42, 0)
boxnm = ppm_DocNextBox(Pbox)
call ppm_DeleteContents(boxnm)
call ppm_ImportGraphic(boxnm, 'Genies:note_pause/sixteenthpause', pause)
xw = xg/16
notex = notex+xw
end
otherwise
do
call ppm_ClearStatus()
exit_msg("There was an error !")
end
end
if notex >=18.7 then
do
notex = 2.5
zz = zz + 4
end
return
end
/* spaces */
when nw == 'c' then
do
select
when nn == '1' then
do
xw = xg
notex = notex+xw
end
when nn == '2' then
do
xw = xg/2
notex = notex+xw
end
when nn == '4' then
do
xw = xg/4
notex = notex+xw
end
when nn == '8' then
do
xw = xg/8
notex = notex+xw
end
when nn == '16' then
do
xw = xg/16
notex = notex+xw
end
when nn == 'l' then
do
xw = 0.2
notex = notex+xw
end
when nn == 0 then do
end
otherwise
do
call ppm_ClearStatus()
exit_msg("There was an error !")
end
end
if notex >=18.7 then
do
notex = 2.5
zz = zz + 4
end
return
end
when nw == 'E' then nw = 'e'
when nw == 'e' then
do
call ppm_ClearStatus()
exit_msg("Ready !")
end
otherwise
do
call ppm_ClearStatus()
exit_msg("There was an error !")
end
end
/* y-place of the notes - noteneck to top */
call ppm_SetLineWeight(0.25)
select
when nn=='g#3' then
do
yw = 2.745
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
end
when nn=='g3' then
do
yw = 2.745
if al == 'n' then call naturaltop()
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
end
when nn=='gb3' then
do
yw = 2.745
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
end
when nn=='f#3' then
do
yw = 2.845
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
end
when nn=='f3' then
do
yw = 2.845
if al == 'n' then call naturaltop()
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
end
when nn=='e#3' then
do
yw = 2.945
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
end
when nn=='e3' then
do
yw = 2.945
if al == 'n' then call naturaltop()
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
end
when nn=='eb3' then
do
yw = 2.945
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
end
when nn=='d#3' then
do
yw = 3.045
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
end
when nn=='d3' then
do
yw = 3.045
if al == 'n' then call naturaltop()
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
end
when nn=='db3' then
do
yw = 3.045
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
end
when nn=='c#3' then
do
yw = 3.145
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
end
when nn=='c3' then
do
yw = 3.145
if al == 'n' then call naturaltop()
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
end
when nn=='b2' then
do
yw = 3.245
if al == 'n' then call naturaltop()
end
when nn=='bb2' then
do
yw = 3.245
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='a#2' then
do
yw = 3.345
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='a2' then
do
yw = 3.345
if al == 'n' then call naturaltop()
end
when nn=='ab2' then
do
yw = 3.345
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='g#2' then
do
yw = 3.445
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='g2' then
do
yw = 3.445
if al == 'n' then call naturaltop()
end
when nn=='gb2' then
do
yw = 3.445
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='f#2' then
do
yw = 3.545
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='f2' then
do
yw = 3.545
if al == 'n' then call naturaltop()
end
when nn=='e#2' then
do
yw = 3.645
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='e2' then
do
yw = 3.645
if al == 'n' then call naturaltop()
end
when nn=='eb2' then
do
yw = 3.645
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='d#2' then
do
yw = 3.745
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='d2' then
do
yw = 3.745
if al == 'n' then call naturaltop()
end
when nn=='db2' then
do
yw = 3.745
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='c#2' then
do
yw = 3.845
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='c2' then
do
yw = 3.845
if al == 'n' then call naturaltop()
end
when nn=='b1' then
do
yw = 3.945
if al == 'n' then call naturaltop()
end
when nn=='bb1' then
do
yw = 3.945
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='a#1' then
do
yw = 4.045
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='a1' then
do
yw = 4.045
if al == 'n' then call naturaltop()
end
when nn=='ab1' then
do
yw = 4.045
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='g#1' then
do
yw = 4.145
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='g1' then
do
yw = 4.145
if al == 'n' then call naturaltop()
end
when nn=='gb1' then
do
yw = 4.145
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='f#1' then
do
yw = 4.245
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='f1' then
do
yw = 4.245
if al == 'n' then call naturaltop()
end
when nn=='e#1' then
do
yw = 4.345
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='e1' then
do
yw = 4.345
if al == 'n' then call naturaltop()
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='eb1' then
do
yw = 4.345
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='d#1' then
do
yw = 4.445
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='d1' then
do
yw = 4.445
if al == 'n' then call naturaltop()
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='db1' then
do
yw = 4.445
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.21, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='c#1' then
do
yw = 4.545
box#id = ppm_CreateBox(notex-0.22, yw+zz+0.32, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
call ppm_DrawLine(notex, zz+5.2, (notex+0.4), zz+5.2)
end
when nn=='c1' then
do
yw = 4.545
if al == 'n' then call naturaltop()
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
call ppm_DrawLine(notex, zz+5.2, (notex+0.4), zz+5.2)
end
/* y-place of the notes - noteneck to bottom */
when nn=='G#3' then
do
yw = 3.22
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
end
when nn=='G3' then
do
yw = 3.22
if al == 'n' then call naturalbottom()
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
end
when nn=='GB3' then nn = 'Gb3'
when nn=='Gb3' then
do
yw = 3.22
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
call ppm_DrawLine(notex, zz+3.4, (notex+0.4), zz+3.4)
end
when nn=='F#3' then
do
yw = 3.32
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
end
when nn=='F3' then
do
yw = 3.32
if al == 'n' then call naturalbottom()
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
end
when nn=='E#3' then
do
yw = 3.42
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
end
when nn=='E3' then
do
yw = 3.42
if al == 'n' then call naturalbottom()
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
end
when nn=='EB3' then nn = 'Eb3'
when nn=='Eb3' then
do
yw = 3.42
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
call ppm_DrawLine(notex, zz+3.6, (notex+0.4), zz+3.6)
end
when nn=='D#3' then
do
yw = 3.52
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
end
when nn=='D3' then
do
yw = 3.52
if al == 'n' then call naturalbottom()
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
end
when nn=='DB3' then nn = 'Db3'
when nn=='Db3' then
do
yw = 3.52
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
end
when nn=='C#3' then
do
yw = 3.62
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
end
when nn=='C3' then
do
yw = 3.62
if al == 'n' then call naturalbottom()
call ppm_DrawLine(notex, zz+3.8, (notex+0.4), zz+3.8)
end
when nn=='B2' then
do
yw = 3.72
if al == 'n' then call natural()
end
when nn=='BB2' then nn = 'Bb2'
when nn=='Bb2' then
do
yw = 3.72
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='A#2' then
do
yw = 3.82
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='A2' then
do
yw = 3.82
if al == 'n' then call naturalbottom()
end
when nn=='AB2' then nn = 'Ab2'
when nn=='Ab2' then
do
yw = 3.82
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='G#2' then
do
yw = 3.92
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='G2' then
do
yw = 3.92
if al == 'n' then call naturalbottom()
end
when nn=='GB2' then nn = 'Gb2'
when nn=='Gb2' then
do
yw = 3.92
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='F#2' then
do
yw = 4.02
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='F2' then
do
yw = 4.02
if al == 'n' then call naturalbottom()
end
when nn=='E#2' then
do
yw = 4.12
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='E2' then
do
yw = 4.12
if al == 'n' then call naturalbottom()
end
when nn=='EB2' then nn = 'Eb2'
when nn=='Eb2' then
do
yw = 4.12
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='D#2' then
do
yw = 4.22
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='D2' then
do
yw = 4.22
if al == 'n' then call naturalbottom()
end
when nn=='DB2' then nn = 'Db2'
when nn=='Db2' then
do
yw = 4.22
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='C#2' then
do
yw = 4.32
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='C2' then
do
yw = 4.32
if al == 'n' then call naturalbottom()
end
when nn=='B1' then yw = 4.42
when nn=='BB1' then nn='Bb1'
when nn=='Bb1' then
do
yw = 4.42
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='A#1' then
do
yw = 4.52
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='A1' then
do
yw = 4.52
if al == 'n' then call naturalbottom()
end
when nn=='AB1' then nn = 'Ab1'
when nn=='Ab1' then
do
yw = 4.52
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='G#1' then
do
yw = 4.62
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='G1' then
do
yw = 4.62
if al == 'n' then call naturalbottom()
end
when nn=='GB1' then nn = 'Gb1'
when nn=='Gb1' then
do
yw = 4.62
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
end
when nn=='F#1' then
do
yw = 4.72
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
end
when nn=='F1' then
do
yw = 4.72
if al == 'n' then call naturalbottom()
end
when nn=='E#1' then
do
yw = 4.82
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='E1' then
do
yw = 4.82
if al == 'n' then call naturalbottom()
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='EB1' then nn = 'Eb1'
when nn=='Eb1' then
do
yw = 4.82
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='D#1' then
do
yw = 4.92
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='D1' then
do
yw = 4.92
if al == 'n' then call naturalbottom()
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='DB1' then nn = 'Db1'
when nn=='Db1' then
do
yw = 4.92
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.27, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'f')
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
end
when nn=='C#1' then
do
yw = 5.02
box#id = ppm_CreateBox(notex-0.24, yw+zz-0.15, 0.35, 0.75, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 's')
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
call ppm_DrawLine(notex, zz+5.2, (notex+0.4), zz+5.2)
end
when nn=='C1' then
do
yw = 5.02
if al == 'n' then call naturalbottom()
call ppm_DrawLine(notex, zz+5, (notex+0.4), zz+5)
call ppm_DrawLine(notex, zz+5.2, (notex+0.4), zz+5.2)
end
otherwise
do
call ppm_ClearStatus()
exit_msg("There was an error !")
end
end
/* measures of a notebox */
notewidht = 0.64
noteheight = 0.97
boxid = ppm_CreateBox(notex, yw+zz, notewidht, noteheight, 0)
call ppm_SetSize(notepkt)
call ppm_TextIntoBox(boxid, nw)
notex = (notex + xw)
if notex >=18.7 then
do
notex = 2.5
zz = zz + 4
end
return
end
exit
naturaltop:
do
Pbox = ppm_CreateBox(notex-0.34, yw+zz+0.07, 0.6, 1.2, 0)
boxnm = ppm_DocNextBox(Pbox)
call ppm_DeleteContents(boxnm)
call ppm_ImportGraphic(boxnm, 'Genies:note_pause/naturalsng', Zeichen)
return
end
naturalbottom:
do
Pbox = ppm_CreateBox(notex-0.34, yw+zz-0.4, 0.6, 1.2, 0)
boxnm = ppm_DocNextBox(Pbox)
call ppm_DeleteContents(boxnm)
call ppm_ImportGraphic(boxnm, 'Genies:note_pause/naturalsng', Zeichen)
return
end
break_d:
break_e:
break_c:
halt:
call exit_msg("User aborted Genie!")
exit_msg: procedure
do
parse arg message
if message ~= '' then
call ppm_Inform(1,message,)
call ppm_ClearStatus()
call ppm_AutoUpdate(1)
exit
end